home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 003 / db3ar.arc / DATA.PRG < prev    next >
Encoding:
Text File  |  1985-10-14  |  1.3 KB  |  62 lines
  1. **************************************** (C.DATA.PRG)
  2. CLEAR
  3. @ 9,1 SAY 'Be sure you have updated the customer files before ì
  4. continuing.'
  5. @ 13,1 SAY 'Want to print a customer data report? '
  6. ?
  7. STORE ' ' TO OPTION
  8. WAIT ' ?  ' TO OPTION
  9. IF OPTION<>'Y'
  10. RETURN
  11. ENDIF
  12. CLEAR
  13. USE B:CUST
  14. STORE 0 TO COUNT
  15. STORE 1 TO PCOUNT
  16. SET TALK OFF
  17. DO WHILE .NOT. EOF()
  18. STORE '            ' TO MSALES
  19. IF SALES='J'
  20. STORE 'JAY KENNEY' TO MSALES
  21. ENDIF
  22. IF SALES='C'
  23. STORE 'Charles Nash' TO MSALES
  24. ENDIF
  25. IF SALES='H'
  26. STORE 'House' TO MSALES
  27. ENDIF
  28. SET PRINT ON
  29. IF COUNT = 10
  30. STORE PCOUNT+1 TO PCOUNT
  31. STORE 0 TO COUNT
  32. ? CHR(12)
  33. ENDIF
  34. IF COUNT=0
  35. ? MTITLE+'      Page '+STR(PCOUNT,2)
  36. ? DTOC(DATE())+'                        Customer Data   Net Due    ì
  37. + 30   ì
  38.   + 45  +  60'
  39. ? ì
  40. '~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ì
  41. ì
  42. ~~~~~~~~~~~~~~'
  43. ENDIF
  44. ? 'Account number '+ACCT
  45. ? NAME+'  '+PHONE+' '+STR(NET,7,2)+' ì
  46. '+STR(OLD_30,7,2)+STR(OLD_45,9,2)+STR(OLD_60,7,2)
  47. ? ADDRESS+'Salesman: '+MSALES
  48. ? CITY+STATE+' '+ZIP+'    Discount:'+' '+DISC+'   Paid YTD Total: ì
  49. '+STR(ALLPAY,8,2)
  50. ? ì
  51. '-----------------------------------------------------------------ì
  52. --------------'
  53. ?
  54. SKIP
  55. STORE COUNT +1 TO COUNT
  56. IF EOF()
  57. ? CHR(12)
  58. ENDIF
  59. SET PRINT OFF
  60. ENDDO
  61. RETURN
  62.